﻿Class MainWindow 

    Private Sub MainWindow_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        Me.DataContext = New TestClass
    End Sub

    Private Sub CollectionViewSource_Filter(sender As System.Object, e As System.Windows.Data.FilterEventArgs)
        Dim t As TestItem = e.Item
        e.Accepted = t.Name >= "A" Or t.Number >= 50
    End Sub
End Class
